MacHack 1998/MacHack 1998.toast/Papers/From CodeWarrior to Delphi/TalkBASIC/Example 2 -- Working with apps

Text File | 1996-12-06 | 369 b | 11 lines | [TEXT/?BAS]

MsgBox("This program copies words from Scriptable Text Editor to Microsoft Excel")

num = 1
while quill.Document(1).Word(num).Exists
   oneword$ = quill.Document(1).Word(num).Contents
   Progress(oneword$)
   msexcel.Document(1).Column(1).Cell(num).Formula = oneword$
   msexcel.Document(1).Column(2).Cell(num).Formula = LEN(oneword$)
   num = num + 1
wend
End Progress